Het volgende voorbeeld maakt gebruik van code waarin de eigenschap CommandBarEvents is opgenomen, om elke code te ondersteunen die nodig is om een muisklik op een opdrachtbalk te verwerken.
Private WithEvents ce As CommandBarEvents
Sub Test()
Dim c As CommandBarControl
Set c = Application.VBE.CommandBars("Extra").Controls(1)
Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub
Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
' Put event-handling code here
End Sub